ANnnnno 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RR RRR 
RRR RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR =RRR 

RRR = RRR 

RRR = RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 


AHA tt tt Ht tt SH 
a | LLL) 
ee ee ee Le) 


L 
LLLLLLLLLLLELLLL 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


**F ILE**1D**BPASETPRI 


BBBBBBBB — PPPPPPPP AAAAAA SSSSSSSS EEEEEEEEEE ITTTTTTTTT PPPPPPPP  RRRRRRRR HII 

BBBBBBBB_  —~PPPPPPPP AAAAAA SSSSSSSS EEEEEEEEEE TTTTTTTTTT PPPPPPPP  RRRRRRRR III 

or 6B PP PP AA AA SS EE TT PP PP RR RR II 

eB BB PP PP AA AA SS EE 1T pp PP RR RR II 

eH BB PP PP AA AA SS FE 1T PP PP RR RR II 

ee BB PP PP AA AA SS EE TT PP PP RR RR II 

BBBBBBBB  PPPPPPPP = AA AA SSSSSS_—s EEE EEEE 1T PPPPPPPP =a RRRRRRRR II 

BBBBBBEB_ —PPPPPPPP = AA AA SSSSSS_—sEEEEEEEE TT PPPPPPPP —aRRRRRRRR II 

pH BB PP AAAAAAAAAA ss EE 1T PP RR RR 11 

Bb PP AAAAAAAAAA SS EE 1T PP RR RR II 

ck BB PP AA SS EE TT PP RR RR 11 dais 
bs BB PP AA AA SS EE 1T PP RR RR 11 saci 
BBBBBBBB PP AA AA SSSSSSSS- EEEEEEEEEE TT PP RR RRsIIIIII nae 
BBBBBBBB AA AA SSSSSSSS ——« EEEEEEEEEE TT PP RR RRsIIIII1 oan 
LL HII! SSSSSSSS 

LL HII] SSSSSSSS 

LL 11 S$ 

LL 1] SS 

LL 1] $$ 

LL 1] SS 

LL 1] SSSSSS 

LL 1] SSSSSS 

LL 1] S$ 
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LL 11 $5 

LL 11 $5 
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1-se 1984 01:40: AX-11 Bliss-32 V4.0-74 Pa 
12286871382 97389 :89 BASRTL.S CIBPASETPRI .B 231 es 

H 1 001 ; 

: ¢ 008 :<bLf/width:80> 

: 4 004 MODULE b a$set_pri ( ! Changes priorit 

.' 0005 pee IDENT = "1-003" i File BPASETPRI -B32 

fh Bi ie 

: 1% 0009 : PITITITILILILILI LLL LI LLL Tii tii iiiiiiTiiii iti 
; * . 
tei 0011 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 1 borg 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; i id : re ALL RIGHTS RESERVED. * 
: 4 * 
a 0015 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 18 ooi$ 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ts 0017 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 18 0018 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 19 0019 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; $9 Oss ' i: TRANSFERRED. * 
: " . ® 
; $§ 00 ¢ 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; § 00 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $e oo : ! :* CORPORATION. ” 
+4 if © 
3; 6} 0026 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
Bae 0027 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 2 0028 1 !« * 
; 2 one? 1 !e * 
3 Ht OR : ‘alee aaah inhalant at 
to 0032 1 i<blf/uppercase_key> 

: 2 0033 1 !<blf/lowercase_user> 

; 0034 1! 

; 0035 1 

; 0036 1 !++ 

: 37 0037 1°! FACILITY: VAX-11 BASIC RTL SUPPORT 

; $ 0038 1! 

; 9 0039 1 ! ABSTRACT: 

: 40 0040 1! 

: rt Ooe \ : This module emulates the RSTS SYS() call to set priority. 

: “§ G94§ AUTHOR: V. Eriksson, CREATION DATE: 17-Aug-79 

; 45 045 1 | MODIFIED BY: 

; 46 0046 1! 

3 67 0047 1! VERSION x01 

; «6448 0048 1! ; 

; («49 0049 1 ! 1-002 - Make this module conform to RTL conventions. JBS 02-DEC-1979 

; 50 0050 1 ! 1-003 - More of edit 002. JBS 04-DEC-1979 

, 51 0051 1 !-- 

oe 0052 1 

; $5 0053 1 !<blf/page> 
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BPASSET_PRI 1-56 1984 01:40: AX-11 Bliss-32 V4.0-74 
e008 12780871 38e 1399:98 EBASRTL SRCIGPASETPRI 6 2;1 
H 5 038 1! 

; 5 1 ! SWITCHES: 

: 88 ae 

; +4 8238 : SWITCHES ADDRESSING _MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
3; 6§) $060 7} 

; ¢ 0061 1 ! LINKAGES: 

3 § S206 1! 

3 & 065 1! NONE 

3s 66 0064 1! 

; 68 One? : TABLE OF CONTENTS: 

; 0067 1 

; & 0068 1 FORWARD ROUTINE 

; wv 0069 1 bpa$set_pri : NOVALUE; ! Change job priority 
oe 0070 1 

co 0071 1! 

ey, 0072 1 ! INCLUDE FILES: 

; 746 0075 1! 

eee | 0074 1 

; 76 0075 1 REQUIRE ‘RTLIN:BPASTRUCT’; 

s FF 0166 1 

; 78 0167 1 REQUIRE ‘RTLIN:BPAFQBDEF'; 

; 0291 1 

; 80 0 8 1 LIBRARY ‘RTLSTARLE'; 

;- 3 02935 1 

; 8 BSn6 1 REQUIRE ‘RTLIN:RTLPSECT'; 

‘toe 0389 1 

; 84 0390 1! 

ci 0391 1 ! EQUATED SYMBOLS: 

5. oaa8 s. 

P<. ae 0393 1! NONE 

; 0394 ° ! 

; 89 0395 1 ! PSECTS: 

; 0396 1! 

; 0397 1 declare_psects (bpa); 

‘. ¥ 0398 1! 

3; 0399 1 ! OWN STORAGE: 

; 94 0400 1! 

s: 0401 1! NONE 

; Bene 1! 

; wT 0405 1 ! EXTERNAL REFERENCES: 

; eH: 1! 

; Ww 405 1! NONE 

: 100 0406 1! 

; 101 0407 1 


Page 
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2 
ET_PRI 165 =1984 01:40: AX-11 Bliss-32 v4.0-76 3 
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3 193 rh ! GLOBAL ROUTINE bpa$set_pri (firqb) : NOVALUE = ! Change job priority 

: 105 i? 1 fee 

$ 198 rf : FUNCTIONAL DESCRIPTION: 

; 108 418 1} If change-indicator in firqb isn't set, then return is made. Otherwise 
; 109 414 1! the process identification is fetched and the new pr rer sty is set. 
; 110 415 1! The novt priority (RSTS-priority) is converted to VAX-priority in 
s 111 aig . 3 the fo Loving yay : 

3 Ng 0417 1! Only the last 5 bits of the RSTS pricrity is used which is equivalent 
3 6 pels a of a division by 8. 16 is te this value which gives priorities 
3 10 Bele : in the range of 0 through 31. 

H 138 0421 1 ! FORMAL PARAMETERS: 

ro we. Be ¢ 1! 

; 118 1! firab = firqb-address 

; #119 0424 1! 

3 34 es 5 ! : IMPLICIT INPUTS: 

3 \¢¢ 04 ; 1! firgb pfabsb_pr't ind? : nonzero (indicates change of priority) 
; 167 0439 ' firqb Cfqb$v_priority] : new priority 

3 \¢? be 0 1 ! IMPLICIT OUTPUTS: 

; 126 0431 1! 

3 ler 04 ; 1! NONE 

; 128 ot & 

3 +4 04 1 ! ROUTINE VALUE: 

3 1 0435 1! 

oh 0436 1! NONE 

3 136 0437 1! 

5 3 0438 1 ! SIDE EFFECTS: 

3 «(134 0439 1! 

3 135 0440 1! NONE 

; 136 0441 1! 

3 137 0442 1 !-- 

: 138 0443 (1 

3; «139 0444 2 BEGIN 

3; 140 0445 

3 6161 0446 MAP 

: 142 6447 firgb : REF $faqb_def; ! Defines firgb 

3; 143 0448 

3 144 0449 LOCAL 

3 «6145 0450 sts; ! Status from $setpri 

3 146 51 

: «16 26 ‘ 

3; 148 45 ' Check input. 

3 «149 0454 ! 

s 330 0455 

. Oar 0456 If .firab Cfqb$b_pri_ind] EQLU 0 THEN RETURN; 

Te RES 

: 136 $2p Convert RSTS-priority to VAX-priority and set the new priority. 

: 156 B¢6) 2 

3; 6157 re If NOT (sts = $setpri (pri = .firqb Cfqb$v_priority] + 16)) 

; 158 046 § HEN 

; «64159 0464 RETURN SIGNAL (.sts); 
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BPASSET_PRI 
2008 _ 


: 160 
3; 161 


7E 


Name 
_BPASCODE 


File 


3; Routine Size: 


0465 
0466 END; 
50 04 
05 
06 AO 05 
6E 
000000006 00 
09 
000000006 00 
44 bytes, Routine Base: _BPASCOD 
0467 1 
pees 1 END 
0470 0 ELUDOM 
PSECT SUMMARY 


Bytes 


44 NOVEC,NOWR 


Library Statistics 


-$255$DUA28: CSYSLIBISTARLET.L32;1 


Total 
9776 


2 
1h-sé -1984 
1e-8ep-19 4 


1138: 


S$ UBAsrius 


! End of bpa$set_pri 


000 $008 
AC DO 0000 
AO 95 00006 
$ 13 00009 
4 D4 00008 
0 FF Bane8 
10 f 001 
7E 7C 00016 
04 FB 00018 
30 €E8 OOOIF 
50 0D 00022 
01 FB ootss 
04 00028 1$: 
E + 0000 
' 
Attributes 
T, RD, EXE, SHR, 


3 0 


- TITLE 
~ IDENT 


~EXTRN 
«PSECT 


BOASSET PRI 
\1-0035\ 


SYSSSETPRI 


_BPASCODE ,NOWRT, 


BPASSET 
FIRQB, RO 
i 
#ié, (§ 
=(SP 

#4, SYSSSETPRI 
S18, 1$ 


S 
#1, LIBSSIGNAL 


) 
a5 
( 


cj 


End of module bpa$set_pri 


~EXTRN 


LCL, R 


Pages 
Mapped 


581 


LIBSSIGNAL 


EL, CON, 


Processing 


Time - 


00:01.1 


=32 V4.0-74 
BPASETPRI.B52;1 


SHR, PIC,2 


PRI, Save nothing 


6(RO), =(SP) 
P) 


PIC, ALIGN(2) 


. F 
BPASSET_PRI 16-Sep-1984 91 390:99 VAX-11 Bliss-32 V4.0 ot Page 5 
1-003 14-Sep-1984 11:56:5 CBASRTL. SP*]BPASETPRI .B 2;1 (3) 
4 COMMAND QUALIFIERS 
: SL TSS/CME CEOS DELD. METER OPT IML EE D/UDTRACEDL £904. 59S sBPAEE TPRI SOR J90B IS sOPREE TORE MSRC$:BPASETPRI/UPDATE=(ENH$:BPASETPRI 
3; Size: 44 code + 0 data bytes 
3; Run Time: :05. 
3; Elapsed Time: 00:13.7 
3: Lines/CPU Min: ote $3 
3 yovenee/ Peres 25823 
3 panes Used: 55 pages 
; Compilation Complete 


